home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / cadence.zip / VOL1NO3.ZIP / UNWS.BAS < prev   
BASIC Source File  |  1988-07-17  |  854b  |  23 lines
  1. 10 'This program converts a Wordstar file to a standard text file
  2. 20 'that can be transmitted using 7 data bits. Wordstar uses 8-bit
  3. 30 'characters to produce soft spaces and soft hyphens.
  4. 40 'Modified from Personal Computer Age program by Larry Jordan
  5. 50 '
  6. 100 DEFINT A:CLS:KEY OFF
  7. 105 LOCATE 11,15:PRINT "If the program bombs at 160, hit F2 and try again."
  8. 110 LOCATE 13,25:INPUT "Wordstar file to convert - ";IFN$
  9. 120 LOCATE 15,25:INPUT "Converted file name - ";OFN$
  10. 130 OPEN IFN$ FOR INPUT AS #1
  11. 140 OPEN OFN$ FOR OUTPUT AS #2
  12. 150 CLS:LOCATE 13,25:PRINT "Working on character - ";
  13. 160 WHILE NOT EOF(1)
  14. 170    A1=ASC(INPUT$(1,1))
  15. 180    IF A1<127 THEN 210
  16. 190      LOCATE 13,48:PRINT CHR$(A1)
  17. 200      A1=A1-128
  18. 210    A$=CHR$(A1):PRINT #2,A$;
  19. 220    IF A1=26 THEN 999
  20. 230 WEND
  21. 999 CLOSE:CLS:KEY ON:LOCATE 13,30:PRINT "Done....":BEEP
  22. 1000 SYSTEM
  23.